home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
solution4.16
< prev
next >
Wrap
Text File
|
2007-02-28
|
446b
|
20 lines
0010 DIM QUEUE(12), CH$ OF 1
0020 FRONT:=1; NEX:=1
0030 FOR ITEM:=1 TO 10 DO
0040 READ TIM,CH$
0050 IF CH$="A" THEN
0060 QUEUE(NEX):=TIM
0070 NEX:=NEX+1
0080 ENDIF
0090 IF CH$="D" THEN
0100 IF FRONT>=NEX THEN
0110 PRINT "QUEUE IS EMPTY"
0120 STOP
0130 ELSE
0140 PRINT "TIME IN QUEUE WAS";TIM-QUEUE(FRONT)
0150 FRONT:=FRONT+1
0160 ENDIF
0170 ENDIF
0180 ENDFOR ITEM
0190 DATA 1,"A",3,"A",7,"A",10,"A",15,"A",16,"D",18,"D",20,"A",21,"D",23,"D"